/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Add-Ons / MPW / MPW noweb 2.7 / src / c / match.nw

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 5c 73 75 62 73 65 63 74 | 69 6f 6e 7b 43 6f 64 65 |\subsect|ion{Code|
|00000010| 20 74 6f 20 72 65 63 6f | 67 6e 69 7a 65 20 5b 5b | to reco|gnize [[|
|00000020| 6e 6f 77 65 62 5d 5d 20 | 6d 61 72 6b 75 70 20 6f |noweb]] |markup o|
|00000030| 6e 20 69 6e 70 75 74 7d | 0d 57 65 20 72 65 63 6f |n input}|.We reco|
|00000040| 67 6e 69 7a 65 20 74 68 | 65 20 69 6e 70 75 74 20 |gnize th|e input |
|00000050| 75 73 69 6e 67 20 6d 61 | 74 63 68 69 6e 67 20 66 |using ma|tching f|
|00000060| 75 6e 63 74 69 6f 6e 73 | 2c 20 77 68 69 63 68 20 |unctions|, which |
|00000070| 63 61 6e 20 66 69 6e 64 | 20 5b 5b 40 62 65 67 69 |can find| [[@begi|
|00000080| 6e 5d 5d 2c 0d 5b 5b 40 | 65 6e 64 5d 5d 2c 20 61 |n]],.[[@|end]], a|
|00000090| 6e 64 20 6f 74 68 65 72 | 20 75 73 65 66 75 6c 20 |nd other| useful |
|000000a0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 2e 0d 3c 3c 68 |informat|ion..<<h|
|000000b0| 65 61 64 65 72 3e 3e 3d | 0d 65 78 74 65 72 6e 20 |eader>>=|.extern |
|000000c0| 69 6e 74 20 69 73 5f 6b | 65 79 77 6f 72 64 28 63 |int is_k|eyword(c|
|000000d0| 68 61 72 20 2a 6c 69 6e | 65 2c 20 63 68 61 72 20 |har *lin|e, char |
|000000e0| 2a 6b 65 79 77 6f 72 64 | 29 3b 0d 65 78 74 65 72 |*keyword|);.exter|
|000000f0| 6e 20 69 6e 74 20 69 73 | 5f 62 65 67 69 6e 28 63 |n int is|_begin(c|
|00000100| 68 61 72 20 2a 6c 69 6e | 65 2c 20 63 68 61 72 20 |har *lin|e, char |
|00000110| 2a 74 79 70 65 29 3b 0d | 65 78 74 65 72 6e 20 69 |*type);.|extern i|
|00000120| 6e 74 20 69 73 5f 65 6e | 64 28 63 68 61 72 20 2a |nt is_en|d(char *|
|00000130| 6c 69 6e 65 2c 20 63 68 | 61 72 20 2a 74 79 70 65 |line, ch|ar *type|
|00000140| 29 3b 0d 65 78 74 65 72 | 6e 20 69 6e 74 20 69 73 |);.exter|n int is|
|00000150| 5f 69 6e 64 65 78 28 63 | 68 61 72 20 2a 6c 69 6e |_index(c|har *lin|
|00000160| 65 2c 20 63 68 61 72 20 | 2a 74 79 70 65 29 3b 0d |e, char |*type);.|
|00000170| 3c 3c 2a 3e 3e 3d 0d 23 | 69 6e 63 6c 75 64 65 20 |<<*>>=.#|include |
|00000180| 3c 73 74 72 69 6e 67 2e | 68 3e 0d 23 69 6e 63 6c |<string.|h>.#incl|
|00000190| 75 64 65 20 22 6d 61 74 | 63 68 2e 68 22 0d 73 74 |ude "mat|ch.h".st|
|000001a0| 61 74 69 63 20 69 6e 74 | 20 6d 61 74 63 68 65 73 |atic int| matches|
|000001b0| 28 63 68 61 72 20 2a 6c | 69 6e 65 2c 20 63 68 61 |(char *l|ine, cha|
|000001c0| 72 20 2a 73 65 61 72 63 | 68 29 20 7b 0d 20 20 20 |r *searc|h) {.   |
|000001d0| 20 72 65 74 75 72 6e 20 | 21 73 74 72 6e 63 6d 70 | return |!strncmp|
|000001e0| 28 6c 69 6e 65 2c 73 65 | 61 72 63 68 2c 73 74 72 |(line,se|arch,str|
|000001f0| 6c 65 6e 28 73 65 61 72 | 63 68 29 29 3b 0d 7d 0d |len(sear|ch));.}.|
|00000200| 69 6e 74 20 69 73 5f 6b | 65 79 77 6f 72 64 28 63 |int is_k|eyword(c|
|00000210| 68 61 72 20 2a 6c 69 6e | 65 2c 20 63 68 61 72 20 |har *lin|e, char |
|00000220| 2a 6b 65 79 77 6f 72 64 | 29 20 7b 0d 20 20 20 20 |*keyword|) {.    |
|00000230| 63 68 61 72 20 6c 6f 77 | 5f 61 74 5f 73 69 67 6e |char low|_at_sign|
|00000240| 20 3d 20 27 40 27 3b 0d | 20 20 20 20 72 65 74 75 | = '@';.|    retu|
|00000250| 72 6e 20 2a 6c 69 6e 65 | 3d 3d 6c 6f 77 5f 61 74 |rn *line|==low_at|
|00000260| 5f 73 69 67 6e 20 26 26 | 20 6d 61 74 63 68 65 73 |_sign &&| matches|
|00000270| 28 6c 69 6e 65 2b 31 2c | 6b 65 79 77 6f 72 64 29 |(line+1,|keyword)|
|00000280| 20 26 26 20 0d 20 20 20 | 20 20 20 20 20 20 20 20 | && .   |        |
|00000290| 28 6c 69 6e 65 5b 73 74 | 72 6c 65 6e 28 6b 65 79 |(line[st|rlen(key|
|000002a0| 77 6f 72 64 29 2b 31 5d | 3d 3d 27 20 27 20 7c 7c |word)+1]|==' ' |||
|000002b0| 20 6c 69 6e 65 5b 73 74 | 72 6c 65 6e 28 6b 65 79 | line[st|rlen(key|
|000002c0| 77 6f 72 64 29 2b 31 5d | 3d 3d 27 5c 6e 27 29 3b |word)+1]|=='\n');|
|000002d0| 0d 7d 0d 69 6e 74 20 69 | 73 5f 62 65 67 69 6e 28 |.}.int i|s_begin(|
|000002e0| 63 68 61 72 20 2a 6c 69 | 6e 65 2c 20 63 68 61 72 |char *li|ne, char|
|000002f0| 20 2a 74 79 70 65 29 20 | 7b 0d 20 20 20 20 72 65 | *type) |{.    re|
|00000300| 74 75 72 6e 20 69 73 5f | 6b 65 79 77 6f 72 64 28 |turn is_|keyword(|
|00000310| 6c 69 6e 65 2c 22 62 65 | 67 69 6e 22 29 20 26 26 |line,"be|gin") &&|
|00000320| 20 6d 61 74 63 68 65 73 | 28 6c 69 6e 65 2b 31 2b | matches|(line+1+|
|00000330| 36 2c 74 79 70 65 29 3b | 0d 7d 0d 69 6e 74 20 69 |6,type);|.}.int i|
|00000340| 73 5f 65 6e 64 28 63 68 | 61 72 20 2a 6c 69 6e 65 |s_end(ch|ar *line|
|00000350| 2c 20 63 68 61 72 20 2a | 74 79 70 65 29 20 7b 0d |, char *|type) {.|
|00000360| 20 20 20 20 72 65 74 75 | 72 6e 20 69 73 5f 6b 65 |    retu|rn is_ke|
|00000370| 79 77 6f 72 64 28 6c 69 | 6e 65 2c 22 65 6e 64 22 |yword(li|ne,"end"|
|00000380| 29 20 26 26 20 6d 61 74 | 63 68 65 73 20 28 6c 69 |) && mat|ches (li|
|00000390| 6e 65 2b 31 2b 34 2c 74 | 79 70 65 29 3b 0d 7d 0d |ne+1+4,t|ype);.}.|
|000003a0| 69 6e 74 20 69 73 5f 69 | 6e 64 65 78 28 63 68 61 |int is_i|ndex(cha|
|000003b0| 72 20 2a 6c 69 6e 65 2c | 20 63 68 61 72 20 2a 74 |r *line,| char *t|
|000003c0| 79 70 65 29 20 7b 0d 20 | 20 20 20 72 65 74 75 72 |ype) {. |   retur|
|000003d0| 6e 20 69 73 5f 6b 65 79 | 77 6f 72 64 28 6c 69 6e |n is_key|word(lin|
|000003e0| 65 2c 22 69 6e 64 65 78 | 22 29 20 26 26 20 6d 61 |e,"index|") && ma|
|000003f0| 74 63 68 65 73 28 6c 69 | 6e 65 2b 31 2b 36 2c 74 |tches(li|ne+1+6,t|
|00000400| 79 70 65 29 3b 0d 7d 0d | 40 20 25 64 65 66 20 69 |ype);.}.|@ %def i|
|00000410| 73 5f 6b 65 79 77 6f 72 | 64 20 69 73 5f 62 65 67 |s_keywor|d is_beg|
|00000420| 69 6e 20 69 73 5f 65 6e | 64 20 69 73 5f 69 6e 64 |in is_en|d is_ind|
|00000430| 65 78 0d                |                         |ex.     |        |
+--------+-------------------------+-------------------------+--------+--------+